home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 April / 1993-04.d64 / memory flexer (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  484b  |  22 lines
  1. 5 rem copyright 1993 - compute publications intl ltd - all rights reserved
  2. 10 ifa=0thena=1:load"switcher",8,1
  3. 50 poke53280,6:poke53281,6
  4. 100 open1,0
  5. 105 print"[147]"
  6. 195 print
  7. 200 printspc(10)"primary color #14[157][157]";
  8. 210 input#1,c$:print
  9. 220 v=val(c$):if v<0orv>15 then print"[145]invalid;[145]":goto200
  10. 230 poke53186,v
  11. 240 printspc(10)"secondary color #0[157]";
  12. 250 input#1,c$:print
  13. 260 v=val(c$):if v<0orv>15 then print"[145]invalid;[145]":goto200
  14. 270 poke53205,v
  15. 280 print"[147]sys 53000"
  16. 290 print"new"
  17. 300 print"swap"
  18. 310 print"new"
  19. 320 print"swap"
  20. 330 print"please hit return five times."
  21. 999 end
  22.